home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2002 July
/
07_02.iso
/
software
/
xq-xsetup
/
files
/
setup.exe
/
{app}
/
plugins
/
XQ My Computer Manage 1.xpl
< prev
next >
Wrap
Text File
|
2001-08-29
|
2KB
|
58 lines
"FILE"="Xteq Systems X-Setup Plugin 6.0"
"TYPE"="6"
"COUNT"="1"
"UIPATH"="Appearance\Desktop\Icons\'My Computer' Context Menu"
"NAME"="Show "Manage..." link"
"VERSION"="1.02"
"LANGUAGE"="VBScript"
"OSVERSION"="000101"
"TEXT 1"="Show "Manage..." command in context menu"
"DESCRIPTION 1"="If this option is activated, you can right-click on "My Computer" and select "Manage..." from the appearing menu."
"DESCRIPTION 2"="If deactivated, this command does no longer appear but you can still launch "compmgmt.msc" to manage your computer."
"AUTHOR"="Xteq Systems"
"CONTACTURL"="http://www.xteq.com/"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"="found at Win2000mag.com - David Chernicoff, david@win2000mag.com"
sV1="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoManageMyComputer"
'sV2="HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileAssociate"
Sub Plugin_Initialize
i=RegReadValue(sV1)
If IsEmpty(i) or i=0 then SetUIElement 1,true
' i=RegReadValue(sV2)
' If IsEmpty(i) or i=0 then SetUIElement 2,true
End Sub
Sub Plugin_CheckData(ElementIndex)
End Sub
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
b=GetUIElement(1)
if b=true then
if RegValueExists(sV1) then
Call RegDeleteValue(sv1)
end if
else
Call RegWriteValue(sV1,1,2)
end if
' b=GetUIElement(2)
' if b=true then
' if RegValueExists(sV2) then
' Call RegDeleteValue(sv2)
' end if
' else
' Call RegWriteValue(sV2,1,2)
' end if
' Call IndicateSettingChange()
Call Logoff()
End Sub
Sub Plugin_Terminate
End Sub